﻿Public Class LetraDNI
    Function hallaLetraDNI(ByVal numDNI As Long) As Char
        Dim tab() As Char = {"T", "R", "W", "A", "G", "M", "Y", "F", "P", "D", "X", "B", "N", "J", "Z", "S", "Q", "V", "H", "L", "C", "K", "E"}
        Return tab(numDNI Mod 23)
    End Function
End Class
